使用VBA复制若干个工作表，并另存到新的工作簿

代码如下：

Sub MoveSheets()

'在下面Array中列出所有需要复制的工作表的名称

Worksheets(Array("工作表1", "工作表11", "工作表22", "工作表32")).Copy

Set wbNew = ActiveWorkbook

With wbNew

    ActiveWorkbook.SaveAs Filename:="D:\folder_for_holding_saved_workbook" & "\name_of_saved_workbook.xlsx"

    .Close

End With

End Sub